home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Powervisor v1.10b disk1.adf / s / pv / db < prev    next >
Text File  |  1991-09-28  |  2KB  |  33 lines
  1. ;Setup debug keys and some parameters
  2.  
  3. void if(geterror(lwin:debug),{dwin 14},{dwin;dwin 14})
  4. pref dmode n
  5. pref debug 5 1
  6. _k1={attach 'tr' 031 08 e}
  7. _k2={attach 'tr' 015 08 e}
  8. _k3={attach 'tr o' 020 08 e}
  9. _k4={attach 'tr s' 021 08 e}
  10. _k5={attach 'tr t' 014 08 e}
  11. _k6={attach '{getstring \'Give address\' 256;disp eval(input);tr u eval(input)}' 016 040 e}
  12. _k7={attach 'tr b' 035 040 e}
  13. _k8={attach 'tr g' 013 08 e}
  14. _k9={attach 'tr h' 032 08 e}
  15. _k10={attach 'v if((isbreak(toppc())&255)==0,{-break t toppc()},{break r isbreak(toppc())>>16})' 035 08 e}
  16. _k11={attach '{getstring \'Give window start address\' 256;disp eval(input);dstart eval(input)}' 020 080 e}
  17. _k12={attach '{getstring \'Give breakpoint address\' 256;disp eval(input);break n eval(input)}' 035 080 e}
  18. alias fdebug '{rema \(_k1);rema \(_k2);rema \(_k3);rema \(_k4);rema \(_k5);rema \(_k6);rema \(_k7);rema \(_k8);rema \(_k9);rema \(_k10);rema \(_k11);rema \(_k12);dwin;alias fdebug \'script db\'}
  19. remvar _k1 _k2 _k3 _k4 _k5 _k6 _k7 _k8 _k9 _k10 _k11 _k12
  20. print '\0a'
  21. print 'ctrl-Z = trace\0a'
  22. print 'ctrl-Y = trace\0a'
  23. print 'ctrl-A = trace after\0a'
  24. print 'ctrl-S = skip\0a'
  25. print 'ctrl-R = run program\0a'
  26. print 'ctrl-X = halt running program\0a'
  27. print 'ctrl-B = (re)set temporary breakpoint in top of debug window\0a'
  28. print 'ctrl-T = trace but trace over BSR or JSR\0a'
  29. print 'LAmiga-U = trace until ...\0a'
  30. print 'LAmiga-B = trace until branch\0a'
  31. print 'RAmiga-A = set window start address ...\0a'
  32. print 'RAmiga-B = set permanent breakpoint ...\0a'
  33.